Código fuente de 'Contador de visitas.asp'
<html>
<head>
<title>Contadores ASP. Contador de visitas. Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>
<body style="font-family: Arial; font-size: 11pt">
<p align="center"><b><font size="3">Contador de visitas</font></font></b></p>
<font size="2">Simple contador de visitas que almacena el número de hits en un
fichero de texto "Contador.txt" </font>(si este no ha sido creado, se
crea automáticamente).<br>
<br>
<%
Set fs = CreateObject("Scripting.FileSystemObject")
Wfile=server.mappath("\") & "contador.txt"
on error resume next
Set a = fs.OpenTextFile(Wfile)
hits = Clng(a.ReadLine)
hits = hits + 1
a.close
if error then
hits = 1
end if
Set a = fs.CreateTextFile(Wfile,True)
a.WriteLine(hits)
a.Close
%>Número de hits: <% =hits %>
</font>
</body>
</html>